Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr37/banker31.zip/BANKER.WCX

Wildcat! WCX | 1995-04-09 | 7KB | 399 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  7428 bytes  01/29/123  04:31:22pm
'! Code Segment Size  :3180 bytes
'! Data Segment Size  :4662 bytes
'! String Segment Size:4248 bytes
'! Compiled with WCC version 4.01

      Declare Function Func588(l65534 As Long) As Integer
      Declare Function Func666(l65534 As Long) As Integer
      Declare Function Func748(l65534 As Long) As Integer
      Declare Sub Sub877
      Declare Sub Sub916
      Declare Sub Sub950
      Declare Sub Sub995
      Declare Sub Sub1147
      Declare Sub Sub1919

      Dim i4463 As Integer
      Dim i4465 As Integer
      Dim i4467 As Integer
      Dim w4469 As Word
      Dim i4471 As Integer
      Dim l4473 As Long
      Dim l4477 As Long
      Dim l4481 As Long
      Dim i4485 As Integer
      Dim s4487 As String*1
      Dim s4488 As String*3
      Dim s4491 As String*3
      Dim s4494 As String*10
      Dim s4504 As String*10
      Dim s4514 As String*10
      Dim s4524 As String*25
      Dim s4549 As String*25
      Dim s4574 As String*25
      Dim s4599 As String
      Dim s4603 As String
      Dim s4607 As String*25
      Dim s4632 As String*30

      s4607 = "UNREGISTERED"
      s4632 = "UNREGISTERED"
      CarrierCheck(-1)
      s4603 = ProgPath + "BANKER.CFG"
      Open s4603 For Input As 1
      Input #1, s4494
      Input #1, s4504
      Input #1, s4514
      Input #1, s4524
      Input #1, s4549
      Input #1, s4574
      Input #1, i4465
      Input #1, i4463
      Input #1, s4488
      Input #1, i4467
      Input #1, s4491
      Reset
      If User.SecLevel = UCase(s4494) Then
        Sub916
        End
      End If
  235 If User.SecLevel = UCase(s4504) Then
        Sub916
        End
      End If
  269 If User.SecLevel = UCase(s4514) Then
        Sub916
        End
      End If
  303 If User.Name = UCase(s4524) Then
        Sub916
        End
      End If
  337 If User.Name = UCase(s4549) Then
        Sub916
        End
      End If
  371 If User.Name = UCase(s4574) Then
        Sub916
        End
      End If
  405 l4481 = TimeLeft
      i4485 = User.NetMailBalance
      l4477 = User.SubscriptionBalance
      If UCase(s4488) = "YES" Then
        Sub950
      End If
  471 If l4477 > i4465 Then
        Cls
        Locate 11, 1
        Print "@8A@               Banker balance adjusted to reflect balance limit!"
        l4477 = i4465
        WaitEnter
      End If
  521 ActivityLog "-=≡:> Time Banker Entered <:≡=-"
      If UCase(s4491) = "α╪╦╫╨" Then
        Sub1147
      Else
  563   Sub1919
      End If
  569 Sub877
      End

'! Called 1 time
      Function Func588(l65534 As Long) As Integer
        If Abs(l65534) > i4463 Then
          Print
          Print "@0C@                  The maximum allowable transaction is@07@: @0A@"; i4463
          Func588 = 0
        Else
  650     Func588 = -1
        End If
  658
      End Function

'! Called 1 time
      Function Func666(l65534 As Long) As Integer
        If l4477 + l65534 > i4465 Then
          Print
          Print "@0C@                   The maximum allowable balance is@07@: @0A@"; i4465
          Func666 = 0
        Else
  732     Func666 = -1
        End If
  740
      End Function

'! Called 6 times
      Function Func748(l65534 As Long) As Integer
        If Func588(l65534) = -1 And Func666(l65534) = -1 Then
          l4481 = l4481 - l65534
          l4477 = l4477 + l65534
          Func748 = -1
        Else
  849     Print
          Print "@8C@                       Transaction Not Processed!"
          WaitEnter
          Func748 = 0
        End If
  869
      End Function

'! Called 1 time
      Sub Sub877
        Cls
        Locate 12, 8
        Print "@0E@This Program is @8C@UNREGISTERED@0E@. Please ask your SysOp to Register!"
        Delay 3
      End Sub

'! Called 6 times
      Sub Sub916
        ActivityLog "-=≡:> Time Banker Access Denied <:≡=-"
        Print
        Print "@0E@Sorry, but you do not have access to this door!"
        WaitEnter
      End Sub

'! Called 1 time
      Sub Sub950
        If i4485 >= i4467 Then
          Print
          Print "@0E@Sorry, but the bank is closed! Try again tomorrow."
          WaitEnter
          End
        End If
  992
      End Sub

'! Called 1 time
      Sub Sub995
        Dim i65534 As Integer

        i65534 = 1
        Do
 1011     s4487 = InKey(1213417543)
          If InStr("DWTQ", UCase(s4487)) Then
            GoTo 1144
          End If
 1054     Locate 22, 50
          Print Tab(50); "@0F@"; Mid("─\|/", i65534, 1);
          i65534 = i65534 + 1
          If i65534 > 4 Then
            i65534 = 1
          End If
 1130     Delay 0.1
        Loop
 1144
      End Sub

'! Called 1 time
      Sub Sub1147
        Dim l65528 As Long '! Temporary
        Dim s65532 As String

        Do
 1156     s4599 = ProgPath + "BANKER.MNU"
          DisplayTextFile(s4599)
          Print "@0B@                  Your Current Time Banker Balance Is @07@... @0A@"; l4477
          Print "@0B@                  Time Currently Available Online @07@....... @0A@"; l4481
          Print "@0B@                  Maximum Allowed Account Balance @07@....... @0A@"; i4465
          Print "@0B@                  Maximum Allowed Transaction @07@........... @0A@"; i4463
          Print
          Print "@0F@                          Time Banker Command >> ";
          Input s4487
          s65532 = UCase(s4487)
          If s65532 = "T" Then
            l4473 = l4481
            If l4481 + l4477 > i4465 Then
              Cls
              Locate 8, 1
              Print "@0C@         This deposit is greater than your maximum allowable balance!"
              Print
              Print "@0B@                 Your Current Time Banker Balance Is @07@... @0A@"; l4477
              Print "@0B@                 Time Currently Available Online @07@....... @0A@"; l4481
              Print "@0B@                 Maximum Allowed Account Balance @07@....... @0A@"; i4465
              Print "@0B@                 Maximum Allowed Transaction @07@........... @0A@"; i4463
              Print
              Print "@0C@                         Transaction Not Processed!"
              Print
              WaitEnter
            Else
 1433         w4469 = Func748(l4473)
              User.SubscriptionBalance = l4477
              If UCase(s4488) = "YES" Then
                User.NetMailBalance = i4485 + 1
              End If
 1503         Cls
              Locate 12, 1
              Print "@0A@                            Transaction Processed!";
              Delay 1
              User.TimeLeft = 1
              Delay 2
              DisplayFile("Goodbye")
              Goodbye 1213417543
              End
            End If
 1568     Else
 1574       If s65532 = "D" Then
              Cls
              Locate 10, 1
              l4473 = Val(InputMask("@0E@               How much time would you like to deposit ? ", "99", "", 1213417543))
              If l4473 > TimeLeft Then
                Print
                Print "@0C@               This deposit is greater than currently available time!"
                Print
                WaitEnter
              Else
 1670           w4469 = Func748(l4473)
              End If
 1684       Else
 1690         If s65532 = "W" Then
                Cls
                Locate 10, 1
                l4473 = Val(InputMask("@0E@               How much time would you like to withdraw ? ", "99", "", 1213417543))
                If l4473 > l4477 Then
                  Print
                  Print "@0C@               This withdrawal is greater than your banked time!"
                  Print
                  WaitEnter
                Else
 1788
                  Func748((- l4473))
                End If
 1815           GoTo 1821
              End If
            End If
          End If
 1821   Loop Until UCase(s4487) = "Q"
        AddTime l4481 - TimeLeft
        User.SubscriptionBalance = l4477
        If UCase(s4488) = "YES" Then
          User.NetMailBalance = i4485 + 1
        End If
 1912
      End Sub

'! Called 1 time
      Sub Sub1919
        Dim l65510 As Long '! Temporary
        Dim l65514 As Long
        Dim i65518 As Integer
        Dim l65520 As Long
        Dim i65524 As Integer
        Dim l65526 As Long
        Dim i65530 As Integer
        Dim s65532 As String

        Do
 1928     Cls
          Print "@0F@▄▄▄▄@0B@▐@1B@ ┌─────────────────────────────────────────────────────────────────@10@┐@1B@ @08@▌@07@▄▄@0F@▄▄@0A@"
          Print "@0E@▄▄▄▄@0B@▐@1B@ │                        @1E@TIME BANKER 3.1                          @10@│@1B@ @08@▌@06@▄▄@0E@▄▄@0A@"
          Print "@0D@▄▄▄▄@0B@▐@1B@ │@10@                                                                 │@1B@ @08@▌@05@▄▄@0D@▄▄@0A@"
          Print "@0C@▄▄▄▄@0B@▐@1B@ │@10@                                                                 │@1B@ @08@▌@04@▄▄@0C@▄▄@0A@"
          Print "▄▄▄▄@0B@▐@1B@ └@10@─────────────────────────────────────────────────────────────────┘@1B@ @08@▌@02@▄▄@0A@▄▄"
          Print "@0F@▄▄▄▄▄▄▄@07@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0F@▄▄@0A@"
          Locate 4, 17
          Print "@1F@SysOp@17@: @1F@"; s4607
          Locate 4, 43
          Print "@1F@BBS@17@: @1F@"; s4632
          Locate 8, 1
          Print "@0F@                  Time Banker Statistics for@07@: @0E@"; User.Name
          Locate 10, 1
          Print "@0B@                  Your Current Time Banker Balance Is @07@... @0A@"; l4477
          Print "@0B@                  Time Currently Available Online @07@....... @0A@"; l4481
          Print "@0B@                  Maximum Allowed Account Balance @07@....... @0A@"; i4465
          Print "@0B@                  Maximum Allowed Transaction @07@........... @0A@"; i4463
          Locate 15, 1
          Print "@0B@                   ▐@10@ @1B@┌─────────────────────────────────@10@┐ @08@▌@0E@"
          Print "@0B@                   ▐@10@ @1B@│@1E@ @1B@[@1E@D@10@]@1F@eposit time into the Banker@1B@ @1E@ @10@│ @08@▌@0E@"
          Print "@0B@                   ▐@10@ @1B@│@1E@ @1B@[@1E@W@10@]@1F@ithdraw time from the Banker@1E@ @10@│ @08@▌@0E@"
          Print "@0B@                   ▐@10@ @1B@│@1E@ @1B@[@1E@T@10@]@1F@ransfer time left and Logoff@1E@ @10@│ @08@▌@0E@"
          Print "@0B@                   ▐@10@ @1B@│@1E@ @1B@[@1E@Q@10@]@1F@uit back to the BBS        @1B@ @1E@ @10@│ @08@▌@0E@"
          Print "@0B@                   ▐@10@ @1B@└@10@─────────────────────────────────┘ @08@▌@0E@"
          Print
          Print "@0A@                          Time Banker Command >> ";
          Sub995
          s65532 = UCase(s4487)
          If s65532 = "T" Then
            l4473 = l4481
            If l4481 + l4477 > i4465 Then
              Cls
              Locate 8, 1
              Print "@0C@         This deposit is greater than your maximum allowable balance!"
              Print
              Print "@0B@                 Your Current Time Banker Balance Is @07@... @0A@"; l4477
              Print "@0B@                 Time Currently Available Online @07@....... @0A@"; l4481
              Print "@0B@                 Maximum Allowed Account Balance @07@....... @0A@"; i4465
              Print "@0B@                 Maximum Allowed Transaction @07@........... @0A@"; i4463
              Print
              Print "@0C@                         Transaction Not Processed!"
              Print
              WaitEnter
            Else
 2382         w4469 = Func748(l4473)
              User.SubscriptionBalance = l4477
              If UCase(s4488) = "YES" Then
                User.NetMailBalance = i4485 + 1
              End If
 2452
 2473         For i4471 = 15 To 22 Step 1
                Locate i4471, 1
                ClrEOL
              Next
 2559         Locate 16, 1
              Print "@0A@                           Transaction Processed!";
              Delay 1
              User.TimeLeft = 1
              Delay 2
              DisplayFile("Goodbye")
              Goodbye 1213417543
              End
            End If
 2621     Else
 2627       If s65532 = "D" Then
 2665         For i4471 = 15 To 22 Step 1
                Locate i4471, 1
                ClrEOL
              Next
 2751         Locate 15, 1
              l4473 = Val(InputMask("@0E@               How much time would you like to deposit ? ", "99", "", 1213417543))
              If l4473 > TimeLeft Then
                Print
                Print "@0C@               This deposit is greater than currently available time!"
                Print
                WaitEnter
              Else
 2827           w4469 = Func748(l4473)
              End If
 2841       Else
 2847         If s65532 = "W" Then
 2885           For i4471 = 15 To 22 Step 1
                  Locate i4471, 1
                  ClrEOL
                Next
 2971           Locate 15, 1
                l4473 = Val(InputMask("@0E@               How much time would you like to withdraw ? ", "99", "", 1213417543))
                If l4473 > l4477 Then
                  Print
                  Print "@0C@               This withdrawal is greater than your banked time!"
                  Print
                  WaitEnter
                Else
 3049
                  Func748((- l4473))
                End If
 3076           GoTo 3082
              End If
            End If
          End If
 3082   Loop Until UCase(s4487) = "Q"
        AddTime l4481 - TimeLeft
        User.SubscriptionBalance = l4477
        If UCase(s4488) = "YES" Then
          User.NetMailBalance = i4485 + 1
        End If
 3173
      End Sub